100 Plus Great Games 2/100PLUSV2.BIN/games/Darts(Shanghai).dxr/Internal_2_throw darts.ls

Text File | 2002-01-25 | 5.2 KB | 180 lines

property spriteNum, pDart, pLoc, pDistanceFromBoard, pBoardHeightFromGround, pPower, pDeterMinePower, pGravity, pair, pDiffer, pScale, pHeightOfDart, pOgHeight, pOgWidth, pFollow, hateV, hateH, myOloc, myOh, myOv, myOr
global gDartCount, gEnableGrab, gEnablethrow, gIB, gBscreen, gDartPoint, gTargets, gCRBox, gDartButtons, gRound, gCurrentScore, gRoundScore, gCSBox, gRSBox, gDartScore, pseudoList, gDartList

on beginSprite me
  gDartList.add(spriteNum)
  myOloc = sprite(spriteNum).loc
  myOh = sprite(spriteNum).height
  myOv = sprite(spriteNum).width
  myOr = sprite(spriteNum).rotation
end

on cleanUp me
  sprite(spriteNum).loc = myOloc
  sprite(spriteNum).height = myOh
  sprite(spriteNum).width = myOv
  sprite(spriteNum).rotation = myOr
end

on init me
  pDart = sprite(spriteNum)
  pDistanceFromBoard = 96
  pBoardHeightFromGround = 68
  pGravity = 0.59999999999999998
  pHeightOfDart = 28
  pOgHeight = pDart.height
  pOgWidth = pDart.width
  pFollow = timeout("follow").new(1, #followMouse, me)
  pair = VOID
end

on followMouse me
  if (the mouseH >= 0) and (the mouseH <= (the stage).rect.width) and ((the mouseV >= 250) and (the mouseV <= (the stage).rect.height)) then
    pDart.loc = the mouseLoc
  else
    pDart.locH = the mouseH
  end if
end

on mouseDown me
  if voidp(pair) and (pDistanceFromBoard > 0) then
    gEnablethrow = 1
    pFollow.forget()
    pLoc = []
    pLoc[1] = pDart.locH
    pLoc[2] = pDart.locV
    pDistanceFromBoard = 96
    pHeightOfDart = 28
    pDeterMinePower = timeout("power" & string(spriteNum)).new(5, #buildPower, me)
  end if
end

on mouseUp me
  if gEnablethrow and (pDistanceFromBoard > 0) then
    puppetSound(4, member("throw dart"))
    gEnablethrow = 0
    hateH = the mouseH
    hateV = the mouseV
    pDartsCount = pDartsCount + 1
    pDeterMinePower.forget()
    buildPower()
    pair = timeout("pAir" & string(spriteNum)).new(5, #thrown, me)
  end if
end

on mouseUpOutSide me
  if gEnablethrow and (pDistanceFromBoard > 0) then
    puppetSound(4, member("throw dart"))
    gEnablethrow = 0
    hateH = the mouseH
    hateV = the mouseV
    pDartsCount = pDartsCount + 1
    pDeterMinePower.forget()
    buildPower()
    pair = timeout("pAir" & string(spriteNum)).new(10, #thrown, me)
  end if
end

on buildPower me
  pPower = -((float(hateV) - pLoc[2]) * 0.17999999999999999) * 0.72999999999999998
  pDiffer = -((float(hateH) - pLoc[1]) * 0.17999999999999999) * 0.72999999999999998
  if pPower < 10 then
    pPower = 10
  end if
  if pPower > 22 then
    pPower = 22
  end if
end

on thrown me
  pDart.height = pDart.height - 3.54000000000000004
  pDart.width = pDart.width - 3.54000000000000004
  pDart.rotation = pDart.rotation + (pPower * 1.30000000000000004)
  pPower = pPower - pGravity
  pDistanceFromBoard = float(pDistanceFromBoard) - 2.5
  pHeightOfDart = pHeightOfDart + pPower
  pLoc[2] = pLoc[2] - pPower
  pLoc[1] = pLoc[1] - pDiffer
  pDart.locV = pLoc[2]
  pDart.locH = pLoc[1]
  pLoc[2] = pDart.locV
  pLoc[1] = pDart.locH
  if pDistanceFromBoard <= 0 then
    if pDart.locV < 440 then
      og = [290.0, 220.0]
      pd = [pDart.locH.float, pDart.locV.float]
      vec = [pd[1] - og[1], pd[2] - og[2]]
      veclen = sqrt((vec[1] * vec[1]) + (vec[2] * vec[2]))
      if veclen > 190 then
        puppetSound(4, member("dart hit"))
      else
        puppetSound(4, member("dart hit 2"))
      end if
    else
      puppetSound(4, member("hit floor"))
    end if
    pair.forget()
    gDartPoint.loc = pDart.loc
    repeat with i = 1 to gTargets.count
      updateStage()
      if sprite(gTargets[i]).pSector = gRound then
        if gDartPoint.intersects(gTargets[i]) then
          gCurrentScore = gCurrentScore + sprite(gTargets[i]).returnPoints()
          gCSBox.text = string(gCurrentScore)
          gRoundScore[gRound] = string(gRoundScore[gRound] + sprite(gTargets[i]).returnPoints())
          gRSBox[gRound].text = string(gRoundScore[gRound])
          gDartScore[gDartCount] = string(sprite(gTargets[i]).returnPoints())
        end if
      end if
    end repeat
    member("dart" && string(gDartCount)).text = string(gDartScore[gDartCount])
    gEnableGrab = 1
    if gDartCount = 3 then
      if (gDartScore[1] = 25) and (gDartScore[2] = 50) and (gDartScore[3] = 75) then
        gRoundScore[gRound] = gRoundScore[gRound] + 100
      end if
      gRSBox[gRound].text = string(gRoundScore[gRound])
      gBscreen = timeout("bscreen").new(800, #bscreen, me)
    end if
  end if
end

on bscreen me
  gBscreen.forget()
  gDartCount = 0
  gRound = gRound + 1
  gDartScore = [0, 0, 0]
  gCRBox.text = string(gRound)
  repeat with i = 1 to 3
    member("dart" && string(i)).text = "0"
  end repeat
  repeat with i = 1 to gDartList.count
    sprite(gDartList[i]).cleanUp()
  end repeat
  repeat with i = 1 to gDartButtons.count
    sprite(gDartButtons[i]).visible = 1
  end repeat
  repeat with i = 1 to gIB.count
    sprite(gIB[i]).cleanUp()
  end repeat
  if gRound > 20 then
    gameEnd()
  end if
  if gRound <= 20 then
    pseudoList = []
    repeat with i = 1 to gTargets.count
      if sprite(gTargets[i]).pSector = gRound then
        pseudoList.add(gTargets[i])
      end if
      if pseudoList.count = 4 then
        exit repeat
      end if
    end repeat
    blinkLikeTheDickens()
  end if
end

on gameEnd me
  go("game over")
end